Building Homes of Our Own/Building Homes of our Own.iso/setup/data1.cab/Everything/working/houCons.dxr/interface_6_totalTileManager.ls

Text File | 2002-09-25 | 518 b | 25 lines

property ancestor

on new me
  global gIso
  ancestor = gIso
  return me
end

on getNumTilesInHouse
  totaltiles = 0
  repeat with x = 1 to ancestor.pwide
    repeat with y = 1 to ancestor.ptall
      if ancestor.mastergrid[x][y][#FP1] <> #NODRAW then
        totaltiles = totaltiles + 1
      end if
      if ancestor.pTotalFloors = 2 then
        if ancestor.mastergrid[x][y][#FP2] <> #NODRAW then
          totaltiles = totaltiles + 1
        end if
      end if
    end repeat
  end repeat
  return totaltiles
end